rm(multi)
load("multi.RData")

## newspaper plot ##
multi <- multi %>% 
  filter(Number != "NA")


multi$Number <- as.numeric(multi$Number)
ggplot(multi, aes(x = date, y = Number)) + 
  geom_bar(stat = "identity", size = 1, fill = "slateblue4") +
  ylim(0,4) +
  xlab("Date of the Event") +
  ylab("Number of Archives with Coverage") +
  theme_light(base_size = 30) +
  scale_x_discrete(guide = guide_axis(angle = 90))

